System Booster/System Booster.iso/Screenblankers/BlitzBlank 2.60/Install_BlitzBlank

Text File | 1996-09-26 | 13KB | 476 lines

; Install-Script for BlitzBlank 2.50


(if (= @language "deutsch")
  (
    (set text01 "Bitte wählen Sie ein Verzeichnis aus. Darin wird dann eine Schublade BlitzBlank angelegt.")
    (set text02 "Erzeuge das Verzeichnis ")
    (set text03 "Wohin soll das Modulverzeichnis kopiert werden?")
    (set text04 "Kopiere das Modulverzeichnis nach ")
    (set text05 "In welches Verzeichnis soll BlitzBlankPrefs kopiert werden?")
    (set text06 "Kopiere BlitzBlankPrefs nach ")
    (set text07 "In welches Verzeichnis soll BlitzBlank kopiert werden?")
    (set text08 "Kopiere BlitzBlank nach ")
    (set text09 "In welches Verzeichnis sollen die notwendigen Libraries kopiert werden?")
    (set text10 "Kopiere blitzblank.library nach ")
    (set text11 "Kopiere iff.library nach ")
    (set text12 "In welches Verzeichnis soll die Anleitung kopiert werden (gleiches Verzeichnis, wie BBPrefs, oder \"S:\")?")
    (set text14 "Kopiere BlitzBlank.guide nach ")
    (set text15 "Der blitzblank.catalog wird jetzt kopiert.")
    (set text16 "Kopiere blitzblank.catalog nach ")
    (set text17 "Sollen die Entwickler-Files installiert werden?")
    (set text18 "Ja")
    (set text19 "Nein")
    (set text20 "In welches Verzeichnis sollen die Entwickler-Files kopiert werden?")
    (set text21 "Kopiere Schublade Developer nach ")
    (set text22 "Sollen die MagicWB-Icons installiert werden?")
    (set text23 "Kopiere BlitzBlank.info nach ")
    (set text24 "Kopiere Modules.info nach ")
    (set text25 "Kopiere BlitzBlankPrefs.info nach ")
    (set text26 "Kopiere BlitzBlank.info nach ")
    (set text27 "Kopiere BlitzBlank.guide.info nach ")
    (set text28 "Kopiere Developer .info-Files nach ")
    (set text29 "Erzeuge Konfiguration in ENV:")
    (set text30 "BlitzBlankPrefs wird jetzt gestartet. Bitte nehmen Sie Ihre Einstellungen vor und klicken dann auf Speichern.")
    (set text31 "BlitzBlank benötigt MUI 2.3 (V10). Dies ist scheinbar auf Ihrem System nicht installiert. Wollen Sie trotzdem fortfahren?")
    (set text32 "BlitzBlank wurde nicht installiert.")
    (set text33 "Kopiere Files für ")
    (set text34 "Kopiere 68040+FPU Module nach ")
    (set text37 "Kopiere 68020 Module nach ")
    (set text38 "Kopiere 68020 blitzblank.library nach ")
    (set text39 "Kopiere 68020+FPU Module nach ")
    (set text40 "Kopiere 68020 BlitzBlank nach ")
    (set text41 "Besorgen Sie sich unbedingt auch die Module AmigaSign256 (ASign256Blitz.lha) und ARose (ARoseBlitz1.1.lha)!")
  )
)

(if (= @language "english")
  (
    (set text01 "Please choose a directory. A directory named BlitzBlank will be created there.")
    (set text02 "Creating directory ")
    (set text03 "To which directory do you want the module-directory to be copied?")
    (set text04 "Copying the module-directory to ")
    (set text05 "To which directory do you want BlitzBlankPrefs to be copied?")
    (set text06 "Copying BlitzBlankPrefs to ")
    (set text07 "To which directory do you want BlitzBlank to be copied?")
    (set text08 "Copying BlitzBlank to ")
    (set text09 "To which directory do you want the necessary libraries to be copied?")
    (set text10 "Copying blitzblank.library to ")
    (set text11 "Copying iff.library to ")
    (set text12 "To which directory do you want the doc to be copied (same, as BBPrefs, or \"S:\")?")
    (set text14 "Copying BlitzBlank.guide to ")
    (set text15 "The blitzblank.catalog will now be copied.")
    (set text16 "Copying blitzblank.catalog to ")
    (set text17 "Do you want to install the developer files?")
    (set text18 "Yes")
    (set text19 "No")
    (set text20 "To which directory do you want the developer files to be copied?")
    (set text21 "Copying developer directory to ")
    (set text22 "Do you want to install the MagicWB-icons?")
    (set text23 "Copying BlitzBlank.info to ")
    (set text24 "Copying Modules.info to ")
    (set text25 "Copying BlitzBlankPrefs.info to ")
    (set text26 "Copying BlitzBlank.info to ")
    (set text27 "Copying BlitzBlank.guide.info to ")
    (set text28 "Copying developer .info-files to ")
    (set text29 "Creating configuration in ENV:")
    (set text30 "BlitzBlankPrefs will now be started. Please make all necessary configurations and select Save.")
    (set text31 "BlitzBlank needs MUI 2.3 (V10). It seems not to be installed on your system. Do you want to continue anyway?")
    (set text32 "BlitzBlank was not installed.")
    (set text33 "Copying files for ")
    (set text34 "Copying 68040+FPU modules to ")
    (set text37 "Copying 68020 modules to ")
    (set text38 "Copying 68020 blitzblank.library to ")
    (set text39 "Copying 68020+FPU modules to ")
    (set text40 "Copying 68020 BlitzBlank to ")
    (set text41 "Be sure to get yourself also the modules AmigaSign256 (ASign256Blitz.lha) und ARose (ARoseBlitz1.1.lha)!")
  )
)

(if (= @language "dansk")
  (
    (set text01 "Please choose a directory. A directory named BlitzBlank will be created there.")
    (set text02 "Creating directory ")
    (set text03 "To which directory do you want the module-directory to be copied?")
    (set text04 "Copying the module-directory to ")
    (set text05 "To which directory do you want BlitzBlankPrefs to be copied?")
    (set text06 "Copying BlitzBlankPrefs to ")
    (set text07 "To which directory do you want BlitzBlank to be copied?")
    (set text08 "Copying BlitzBlank to ")
    (set text09 "To which directory do you want the necessary libraries to be copied?")
    (set text10 "Copying blitzblank.library to ")
    (set text11 "Copying iff.library to ")
    (set text12 "To which directory do you want the doc to be copied (same, as BBPrefs, or \"S:\")?")
    (set text14 "Copying BlitzBlank.guide to ")
    (set text15 "The blitzblank.catalog will now be copied.")
    (set text16 "Copying blitzblank.catalog to ")
    (set text17 "Do you want to install the developer files?")
    (set text18 "Yes")
    (set text19 "No")
    (set text20 "To which directory do you want the developer files to be copied?")
    (set text21 "Copying developer directory to ")
    (set text22 "Do you want to install the MagicWB-icons?")
    (set text23 "Copying BlitzBlank.info to ")
    (set text24 "Copying Modules.info to ")
    (set text25 "Copying BlitzBlankPrefs.info to ")
    (set text26 "Copying BlitzBlank.info to ")
    (set text27 "Copying BlitzBlank.guide.info to ")
    (set text28 "Copying developer .info-files to ")
    (set text29 "Creating configuration in ENV:")
    (set text30 "BlitzBlankPrefs will now be started. Please make all necessary configurations and select Save.")
    (set text31 "BlitzBlank needs MUI 2.3 (V10). It seems not to be installed on your system. Do you want to continue anyway?")
    (set text32 "BlitzBlank was not installed.")
    (set text33 "Copying files for ")
    (set text34 "Copying 68040+FPU modules to ")
    (set text37 "Copying 68020 modules to ")
    (set text38 "Copying 68020 blitzblank.library to ")
    (set text39 "Copying 68020+FPU modules to ")
    (set text40 "Copying 68020 BlitzBlank to ")
    (set text41 "Be sure to get yourself also the modules AmigaSign256 (ASign256Blitz.lha) und ARose (ARoseBlitz1.1.lha)!")
  )
)

(set muiver (getversion "libs:muimaster.library"))
(set muiver (/ muiver 65536))

(if (< muiver 10)
  (if
    (NOT
      (askbool
        (prompt text31)
        (help @askchoice-help)
        (choices text18 text19)
        (default 1)
      )
    )
    (abort text32)
  )
)

(run "SYS:Rexxc/RX \"ADDRESS 'BLITZBLANK' 'QUIT'\"")

(set @default-dest
    (askdir
        (prompt text01)
        (help @askdir-help)
        (default @default-dest)
    )
)

(set maindir @default-dest)

(set @default-dest
  (tackon @default-dest "BlitzBlank")
)

(makedir @default-dest
  (prompt text02 @default-dest)
    (help @makedir-help)
  (infos)
  (confirm)
)

(set moddir
    (askdir
        (prompt text03)
        (help @askdir-help)
        (default @default-dest)
    )
)

(copyfiles
  (prompt text04 moddir)
    (help @copyfiles-help)
  (source "")
  (dest moddir)
  (pattern "Modules")
  (infos)
  (confirm)
)

(set bbprefsdir
    (askdir
        (prompt text05)
        (help @askdir-help)
        (default @default-dest)
    )
)

(copyfiles
  (prompt text06 bbprefsdir)
    (help @copyfiles-help)
  (source "")
  (dest @default-dest)
  (pattern "BlitzBlankPrefs")
  (infos)
  (confirm)
)

(set docdir
    (askdir
        (prompt text12)
        (help @askdir-help)
        (default bbprefsdir)
    )
)

(set doclang @language)

(if (= doclang "dansk")
  (set doclang "english")
)

(copyfiles
  (prompt text14 docdir)
    (help @copyfiles-help)
  (source doclang)
  (dest docdir)
  (pattern "BlitzBlank.guide")
  (infos)
  (confirm)
)

(set blitzblankdir
    (askdir
        (prompt text07)
        (help @askdir-help)
        (default "SYS:WBStartup/")
    )
)

(copyfiles
  (prompt text08 blitzblankdir)
    (help @copyfiles-help)
  (source "")
  (dest blitzblankdir)
  (pattern "BlitzBlank")
  (infos)
  (confirm)
)

(set libdir
    (askdir
        (prompt text09)
        (help @askdir-help)
        (default "LIBS:")
    )
)

(copylib
    (prompt text10 libdir)
    (help @copylib-help)
    (source "libs/blitzblank.library")
    (dest libdir)
    (confirm)
)

(copylib
    (prompt text11 libdir)
    (help @copylib-help)
    (source "libs/iff.library")
    (dest libdir)
    (confirm)
)

(if (AND (NOT (= (getassign "Locale") "")) (NOT (= @language "english")))
  (
    (message text15)
    (set localedir
      (tackon "Locale:Catalogs" @language)
    )
    (set localesource
      (tackon "Locale/Catalogs" @language)
    )
    (copyfiles
      (prompt text16 localedir)
        (help @copyfiles-help)
      (source localesource)
      (dest localedir)
      (pattern "blitzblank.catalog")
      (confirm)
    )
  )
)

(set cpu (database "cpu"))

(if (NOT (OR (= cpu "68000") (= cpu "68010")))   ;(OR (OR (= cpu "68020") (= cpu "68030")) (= cpu "68040"))
  (

    (set fpu (run "cpu check FPU"))

    (if (= fpu 0)
      (message text33 cpu "+FPU")
      (message text33 cpu)
    )

    (copyfiles
      (prompt text37 (tackon moddir "Modules/"))
        (help @copyfiles-help)
      (source "68020")
      (dest (tackon moddir "Modules/"))
      (files)
      (pattern "BB.#?")
      (confirm)
    )

    (copyfiles
      (prompt text38 libdir)
        (help @copyfiles-help)
      (source "68020")
      (dest libdir)
      (files)
      (pattern "blitzblank.library")
      (confirm)
    )

    (copyfiles
      (prompt text40 blitzblankdir)
        (help @copyfiles-help)
      (source "68020")
      (dest blitzblankdir)
      (files)
      (pattern "BlitzBlank")
      (confirm)
    )

    (if (AND (OR (= cpu "68020") (= cpu "68030")) (= fpu 0))
      (copyfiles
        (prompt text39 (tackon moddir "Modules/"))
          (help @copyfiles-help)
        (source "68020+FPU")
        (dest (tackon moddir "Modules/"))
        (files)
        (pattern "BB.#?")
        (confirm)
      )
    )

    (if (AND (OR (= cpu "68040") (= cpu "68060")) (= fpu 0))
      (copyfiles
        (prompt text34 (tackon moddir "Modules/"))
          (help @copyfiles-help)
        (source "68040+FPU")
        (dest (tackon moddir "Modules/"))
        (files)
        (pattern "BB.#?")
        (confirm)
      )
    )
  )
)

(if (askbool
      (prompt text17)
      (help @askchoice-help)
      (choices text18 text19)
      (default 0)
    )
  (
    (set devdir
        (askdir
            (prompt text20)
            (help @askdir-help)
            (default @default-dest)
        )
    )
    (copyfiles
      (prompt text21 devdir)
        (help @copyfiles-help)
      (source "")
      (dest devdir)
      (pattern "Developer")
      (infos)
      (confirm)
    )
  )
  (set devdir "")
)

(if (askbool
      (prompt text22)
      (help @askchoice-help)
      (choices text18 text19)
      (default 0)
    )
  (
    (copyfiles
      (prompt text23 maindir)
        (help @copyfiles-help)
      (source "MagicWB/BlitzBlank.info")
      (dest maindir)
      (files)
      (confirm)
    )
    (copyfiles
      (prompt text24 moddir)
        (help @copyfiles-help)
      (source "MagicWB/BlitzBlank/Modules.info")
      (dest moddir)
      (files)
      (confirm)
    )
    (copyfiles
      (prompt text25 bbprefsdir)
        (help @copyfiles-help)
      (source "MagicWB/BlitzBlank/BlitzBlankPrefs.info")
      (dest bbprefsdir)
      (files)
      (confirm)
    )
    (copyfiles
      (prompt text26 blitzblankdir)
        (help @copyfiles-help)
      (source "MagicWB/BlitzBlank/BlitzBlank.info")
      (dest blitzblankdir)
      (files)
      (confirm)
    )
    (copyfiles
      (prompt text27 docdir)
        (help @copyfiles-help)
      (source "MagicWB/BlitzBlank/BlitzBlank.guide.info")
      (dest docdir)
      (files)
      (confirm)
    )
    (if (devdir)
      (copyfiles
        (prompt text28 devdir)
          (help @copyfiles-help)
        (source "MagicWB/BlitzBlank")
        (dest devdir)
        (pattern "Developer")
        (infos)
        (confirm)
      )
    )
  )
)

(if (NOT (exists "ENV:BlitzBlank.prefs"))
  (textfile
    (prompt text29)
    (help "")
    (dest "ENV:BlitzBlank.prefs")
    (append "Blackout\n0\n" (tackon moddir "Modules/") "\nalt esc\nctrl esc\n0\n0\n60\n0\n0\n0\n1\n0\n1\n1\n1\n" (tackon bbprefsdir "BlitzBlankPrefs") "\n")
    (confirm)
  )
)

(run "c:avail flush")
(run "c:avail flush")

(set @execute-dir blitzblankdir)
(run "run >nil: " (cat (cat "\"" (tackon blitzblankdir "BlitzBlank")) "\"") "CX_PRIORITY=1 NASTYMOUSEBLANK=YES")

(message text30)

(set @execute-dir bbprefsdir)
(run (cat (cat "\"" (tackon bbprefsdir "BlitzBlankPrefs")) "\""))

(message text41)

(exit)